home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Latest Shareware Programs: Warp / OS-2 WARP - Latest Shareware Programs.iso / zipped.os2 / treiber.1 / elsa312.exe / INSTALL.CMD < prev    next >
OS/2 REXX Batch file  |  1994-09-22  |  785b  |  51 lines
  1. /*
  2. @echo off
  3. cls
  4. echo.
  5. echo.
  6. echo ERROR:
  7. echo REXX support not installed
  8. echo You must have REXX support installed to run this
  9. echo program.
  10. echo.
  11. echo To run this program, run Selective Install from
  12. echo your System Setup folder, and install REXX or
  13. echo run install2.cmd .
  14. exit
  15. */
  16.  
  17. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  18. call SysLoadFuncs
  19. /*-- get the command line --*/
  20. parse arg sourcedir destdir
  21.  
  22.  
  23. call SysCls
  24. lang = SysIni("USER" , "PM_National" , "iCountry" )
  25.  
  26. tmplen = length(lang)
  27. if substr( lang, tmplen, 1 ) \= '' then do
  28.   tmplen = length(lang) - 1
  29. end
  30.  
  31. language=substr( lang, 1, tmplen )
  32.  
  33.  
  34. if language = "49" then
  35.    do
  36.      "@call instd.cmd"
  37.    end
  38. else
  39.    do
  40.      "@call inste.cmd"
  41.    end
  42.  
  43.  
  44.  
  45.  
  46. exit
  47.  
  48.  
  49.  
  50.  
  51.